home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-2.dxr / Internal_25_botó augment volum auto.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  548 b   |  21 lines
  1. on mouseDown
  2.   global nVolum
  3.   if nVolum < 7 then
  4.     set nVolum to nVolum + 1
  5.     set the soundLevel to nVolum
  6.     set the member of sprite 4 to member string(nVolum) of castLib "Elementos graficos"
  7.     updateStage()
  8.   end if
  9.   startTimer()
  10.   repeat while the stillDown
  11.     if the timer > 30 then
  12.       if nVolum < 7 then
  13.         set nVolum to nVolum + 1
  14.         set the soundLevel to nVolum
  15.         set the member of sprite 4 to member string(nVolum) of castLib "Elementos graficos"
  16.         updateStage()
  17.       end if
  18.     end if
  19.   end repeat
  20. end
  21.